如需移除,請網站管理者移除.
CDO程式範例 < % Set objEmail = CreateObject("CDO.Message") objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="localhost" objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.From = "寄件者email" '寄信者信箱 objEmail.To = "收件者email"? ? '收信者信箱 objEmail.Subject = "信件標題" objEmail.HTMLbody = " HTML信件內文"? objEmail.Send set objEmail=nothing response.write "信件已經成功寄出" '寄送完成畫面訊息 %>
回覆